home *** CD-ROM | disk | FTP | other *** search
/ Kit PC World De Ampliacion De Windows 95 / Kit PC World de ampliacion de Windows 95.iso / lotus / lotus025.dsk / COLSTYLE.LSS < prev    next >
Text File  |  1995-07-31  |  594b  |  18 lines
  1. ' styles are stored in a collection
  2. ' the collection is accessible through the foundry at the division level
  3.     
  4.     Dim MyStyles As ParagraphStyleCollection
  5.     Set MyStyles = .Division.Foundry.ParagraphStyles
  6.     NumberStyles = MyStyles.Count
  7.     
  8.     Forall Style In MyStyles
  9.         
  10.         Print "Name : "Style.Name
  11.         Print "Description: "Style.Description
  12.         Print "Font - Font Name    "Style.Font.ActualName
  13.         Print "Font - Size " Style.Font.Size
  14.         Print "Font - IsBold "Style.Font.Bold
  15.         Print "Font - Is TrueType "Style.Font.FontMetrics.IsTrueType
  16.         Print " --------------------------"
  17.         
  18.     End Forall